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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS JRESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sor ace 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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s FACILITY: REMOTE 1/0 ACP 

: ABSTRACT 

: This module contains miscellaneous routines 


; ENVIRONMENT: 
; MODE = KERNEL 
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vO4-000 Brea obe AoseesTs PREM Sec TaemSube mans 1 Pe 

0000 38 

4 9 ~SBTTL HISTORY 

it re : AUTHOR: SCOTT G. DAVIS, CREATION DATE: 17-JUL-79 

0000 4¢ : MODIFIED BY: 

0000 43 ; 

Boe 44 ; V02-004 DJD2002 Darrell Duffy 28-July-1981 

44 i : Fix to use DDT entries as absolute addresses. 

0000 «47; v02-003 bsD2001 Darrel Dut fy 5-Mar-1981 

0000 48 ; RTTD R calls NETDRIVER eirectly for 10. 

4h 2 ; leak ae buffered 10 packets to RTTDORIVER. 

0000 «51; V02=002 $GD2001 Scott G. Davis 23-Sep-1980 

0000 > Remove multiple devices, ignore unknown messages 
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INCLUDE FILES: 
; EQUATED SYMBOLS: 


; OWN STORAGE: 


: MACROS: 
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v04-000 REMSCLEAN_UP = Clean up io in progress -SEP-1984 02:54:1 REM. SRCJREMSUBR.MAR; 1 
0090 es -SBTTL REMSCLEAN_UP = Clean up io in progress 
000000 4 -PSECT REM_CODE,NOWRT 
444 $2 3+ 
$000 «87: REMSCLEAN_UP ~ CL the 1/0 
; UP = Clean up the in progress 
0000 Hf ; 
0000 89 ; INPUTS: 
0000 90 ; 
0000 91 ; R11 = device index 
0000 38 3 
8008 93 ;-- 
000 94 
0000 95 REMSCLEAN_UP:: 
55 0000'DF4B D0 0000 96 MOVL aW*REM$GL_UCBVECCR11],R5 ; Get the associated UCB address 
01 12 0006 97 BNEQ 5$ ; If NEQ proceed 
05 0008 98 RSB ; UCB is gone 
52 01 DO 0009 99 5$: MOVL #RBFSC_TT_HANGUP, R2 ; The code for a hangup. 
000Cc 100 ; eeet Fall through **** 
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- Send an attention message 5-SEP-1984 54:1 REM. SRC JREMSUBR.MAR; 1 
a9¢ ¢ a -SBTTL REMSATTNMSG = Send an attention message 
Bae : 2 ; REMSATTNMSG = Send an attention message to the driver 
88 es § $ An attention message is formatted for the driver given a code 
8 ; : as input to this routine. 
QO0C 109 ; inputs: ‘ : 
Boa e 110 ; r2 = modifier for attention message 
QOOOC 111; r5 = rtt ucb 
000C 11 ; outputs: 
Bee 113 ; r0 - r4, r6 clobbered 
0c 114 ;-- 
O00C 115 REMSATTNMSG:: 
56 52 pO QO00C 116 MOVL R2, R6 ; Save the modifier out of harms way 
FFEE* 30 OOOF 117 BSBW REMSALLOC_IRP ; Get a bloc 
53 6 DO 0012 118 MOVL ’ ; Get address where it belongs 
1 90 0015 119 MOVB #DYNSC_BUFIO,- ; Set the block type 
OA A2 0017 120 RBF$B_TYPE(R2) 
OE A2 9E 0019 121 MOVAB RBFS$W_OPCODE(R2),- ; Set the data address 
62 001C 15 RBFSL_MSGDAT(R2) 
04 A2 D4 +343 1S CLRL RBF SL_USRBFR(R2) ; Set the user buffer address 
01 AE 0020 125 MNEGW #-RBFSC_ATTN,- ; This is an attention packet 
OE A2 0022 126 RBF $W_OPCODE (R2) SaeCeA 
10 A256 )«=6BO 02(0024~—Sss‘ 127 MOVW R6, RBFSW_MOD(R2) ; Modifier into message 
52 28 AS 00 0028 128 MOVL UCB$L_DDBTRS) ,R2 ; Get the DDB address 
52 OC A2 D0 002C $3 MOVL DDBSL_DDT(R2),R ; Get the DDT address 
52 04 A2 «0 «0030S: 130 MOVL  DDTS$LIUNSOLINT(R2),R2  ; Get the UNSOL address 
62 16 0034 = 131 JSB (R2) ; Pass the message and return 
05 0036 132 RSB 
0037 8133 
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Woe 2080 REMSENQUEUVE = Put element in work on -SEP-1984 t 03:8 54: af: ERE SRCIREMSUBR_MAR: 1 nest (3) 


-SBTTL REMSENQUEUE = Put element in work queue 


aa 
aa 


REMSENQUEUE = Put an element into the work queue 


83 8 
ae 

8 7 >a § 3 

7 160 ; INPUTS: 

037 141; 

037 135 : 

037 143; R10 = Low byte has work type 

0037 8144 ; R11 = Device index - saved, but not always relevant 

0037 145 ; OUTPUTS: 

8 7 146 : 
037 147; RO-R3 destroyed 

0037 148 ; 

0037 149 ;:-= 

0037 150 

0037 151 REMSENQUEUE:: 

FFC6" 30 0037 136 BSBW REMSALLOC_IRP ; Get storage for a queue element 
53 OA Ag 9E OO3SA 15 MOVAB = IRP$B_TYPE(R2),R3 ; Point to area to put info 
8 94 QOO3E 154 CLRB (R3)+ ; Mark as a work —s 
83 SA 90 0040 £155 MOVB R10,(R3)+ ; Store the work ty 
63 5B 00 0043 156 MOVL R11, (R3) 3; Store the device Pndex (maybe) 
53 O000'CF D0 0046 157 MOVL _ W°REMSGL_Q_HEAD,R3 : Get the ACP queue head 
0483 62 OF 0048 158 INSQUE (R2),a4(R3) ; Put element in the queue 
0B 12 OO4F 159 BNEQ 10$ ; If NEQ this is not the first element 

0051 + 160 SWAKE_S ; Cause processing to occur 

005C 161 10$: 

05 005C 162 RSB 3; Done 
005D 163 
005D 164 


- END 


See eae ee eee ee 


REMSUBR = SUBROUTINES FOR REMOTE 1/0 ues St 9 Og Lette AX/VMS Macro V04-00 Page 
Symbol table -SEP-1984 254:1 REM. SRCJREMSUBR.MAR; 1 
DDBSL_DDT = 90008 C 

DOT$SL “UNSOL INT = 00 4 

DYNSC_BUF 10 = Bae 13 

IRPSB_TYPE = 00 = 

RBFSB_TYPE = 0000000A 
RBFSC_ATIN = FFFFFFFF 

RBFSC_TT_HANGUP = 00000001 

RBFSL_MSGDAT 2 444444 

RBF SL_USRBFR = 00000004 

RBF $W_MO = 00000010 

RBF Sw OPC = 0000000E 

REMSACLOC_IRP eererere 0 
REMSATT QO00000C RG 

REMSCLEAN_UP 00000000 RG 0 

REMSC_CURECO = 00000001 
REMSC_CURVRS = 00000001 
REMSC_LNK_READ = 00000002 
REMSC_MAXDEVS = Q000000A 
REMSC_MAXLINKS = 00000010 
REMSC_MAXUNITS = 00000010 
REMSC_MBX_READ = 00000001 
REMSC_ST_ATTRIB = 00000002 
REMSC_ST CONFIG = 00000001 
REMSENQUEUE 00000037 RG 02 
REM$GL_Q_HEAD teeeeeee =X 02 
REMSGL_UCBVEC eeeeeree KX 02 

YSSWARE eeneneee GX 02 
UCBSK_RTT_ = 00000138 
UCBSK_RTT_LENGTH = 00000138 
UCBS$L_DDB = 00000028 
UCBSL_DEVDEPND2 = 00000048 
UCBSL_RTT_CTRLC = 00000094 
UCBSL_RTT_CTRLY = 00000090 
UCBSL_RTT_DEVDEPEND2 = 00000048 
UCB$L_TL_BAND = 0000009¢ 
UCBSL_TL_CTRLC = 00000094 
UCBSL_TL_CTRLY = 00000090 
UCB$L_TL_OUTBAND = 00000098 
eeeecoeeooooeeeces= + 
! Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
‘ . 00000000 < 9 ?-) NOPIC USR CON ABS LCL =e NOEXE NORD wount NOVEC BYTE 
SABSS 00000000 < 0°) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
REM_CODE 0000005D ( 9 83 NOPIC USR CON REL LCL NOSHR EXE RD NOURT NOVEC BYTE 
eT 
H ;_Per formance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 7 00:00:00.10 00:00:00.49 
Command processing 133 00:00:00.61 00:00:02.28 
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varett — Run Statistics -SEP-1984 254:1 REM. SRCJREMSUBR.MAR; 1 (7). 


Pass 1 36 : 1 47 :00: $-18 
pyate table sort : 14 00:04. 8 
4 91 :00:03.4 
Syabot table output 5 00: 7 8: :00.07 
Psect synopsis output 1 :00.01 :00:00.20 
Cross-reference output 9 00:33 700. 98 0:00:00. ? 
Assembler run totals 58 0:00:37. 


The working 3 Limit was 1500 pages. 

66261 o boy (130 pages) of virtual memory were used to buffer the intermediate code. 

There were 80 pages of symbol table space allocated to hold 1368 non-local and local symbols. 
164 source tinge were read in Pass 1, producing 13 object records in Pass 2. 

29 pages of virtual memory were used to define 28 macros. 


Macro Library name Macros defined 
.$255$DUA28: CREM.OBJJREM.MLB; 1 $ 
“$255$DUA28: (SYS.OBJJLIB.MLB; 1 1 
“$255$DUA28: eye IBISTARLET. MLB; 2 5 

TOTALS (all Libraries) 24 


1524 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:REMSUBR/OBJ=OBJ$:REMSUBR MSRC$:REMSUBR/UPDATE=(ENHS$: REMSUBR) +EXECMLS$/LIB+LIB$:REM/LIB 
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